home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / de / comm / software / ums / 761 < prev    next >
Internet Message Format  |  1996-08-06  |  2KB
  1. Path: anjou.hb.provi.de!not-for-mail
  2. From: "Lothar Bartsch" <lbartsch@anjou.hb.provi.de>
  3. Newsgroups: de.comm.software.ums
  4. Subject: Mailto: mit AWeb und UMS
  5. Date: Fri, 12 Apr 1996 19:01:46 +0100
  6. Organization: The truth is out there.
  7. Message-ID: <18901053@anjou.hb.provi.de>
  8. NNTP-Posting-Host: lbartsch.hb.provi.de
  9.  
  10. Hallo,
  11.  
  12. fuer diejenigen die vielleicht AWeb haben und damit auch die mailto:
  13. Funktion mit UMS nutzen wollen ist hier mal ein kleines ARexx-Skript
  14. dafuer. Die Installation erstreckt sich auf kopieren nach REXX: und
  15. den unten naeher beschriebenen Eintragungen.
  16.  
  17. Die Mail wird mit diesem Skript nur in die UMS Messagebase
  18. geschrieben.
  19.  
  20. /* $VER: awebmailtoums.rexx 0.1 (12.04.96)        */
  21. /* by Lothar Bartsch (lbartsch@anjou.hb.provi.de) */
  22. /*                                                */
  23. /* This script use mailto: with AWeb and UMS      */
  24. /*                                                */
  25. /* Usage:                                         */
  26. /* Select AWeb - Change Settings -                */
  27. /*        Network 3: External programs            */
  28. /* Insert at mailto:                              */
  29. /*        Command   sys:rexxc/rx                  */
  30. /*      Arguments   awebmailtoums.rexx %s         */
  31. /*                                                */
  32. /* Change name,password and server in this skript */
  33.  
  34. options results
  35.  
  36. CALL AddLib("rexxreqtools.library", 0, -30, 0)
  37. CALL AddLib("ums.library", 0, -210, 11)
  38. CALL UMSInitConsts()
  39.  
  40. subj = rtgetstring(,"Insert a subject for this message:","AWebMailtoUMS")
  41. IF rtresult = 0 THEN EXIT
  42.  
  43. addr = ARG(1)
  44. user = Word(Translate(addr,' ','@'),1)
  45.  
  46. /* Insert your configs here */
  47.  
  48. name = ""
  49. password = ""
  50. server = ""
  51.  
  52. SHELL command 'ed sticky t:temp'
  53.  
  54. IF ~EXISTS('t:temp') THEN EXIT
  55.  
  56. /* Login */
  57.  
  58. account = UMSLogin(name,password,server)
  59. IF account = 0 THEN DO
  60.   EXIT 10
  61. END
  62.  
  63. /* Write the message */
  64.  
  65. DROP msg.
  66. msg.UMSCODE_MsgText_FILE = 't:temp'
  67. msg.UMSCODE_ToAddr       = addr
  68. msg.UMSCODE_ToName       = user
  69. msg.UMSCODE_Subject      = subj
  70.  
  71. num = UMSWriteMsg(account, msg.)
  72.  
  73. /* Logout */
  74.  
  75. IF account ~= 0 THEN DO
  76.   CALL UMSLogout(account)
  77.   account = 0
  78. END
  79.  
  80. SHELL command 'delete t:temp >nil:'
  81.  
  82. EXIT
  83.  
  84.  
  85. -- 
  86. Lothar Bartsch                              lbartsch@anjou.hb.provi.de
  87.                       http://home.pages.de/~lbartsch/
  88.  
  89.